home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.5 Complementary Applications 2004 February / SGI IRIX 6.5 Complementary Applications 2004 February.iso / dist / cde.idb / usr / dt / share / examples / dtksh / TransTest1.z / TransTest1
Encoding:
Text File  |  2003-11-18  |  3.1 KB  |  114 lines
  1. #! /usr/dt/bin/dtksh
  2. #
  3. # TransTest1
  4. #
  5. # Copyright 2000, Silicon Graphics, Inc.
  6. # ALL RIGHTS RESERVED
  7. # 
  8. # UNPUBLISHED -- Rights reserved under the copyright laws of the United
  9. # States.   Use of a copyright notice is precautionary only and does not
  10. # imply publication or disclosure.
  11. #
  12. # U.S. GOVERNMENT RESTRICTED RIGHTS LEGEND:
  13. # Use, duplication or disclosure by the Government is subject to restrictions
  14. # as set forth in FAR 52.227.19(c)(2) or subparagraph (c)(1)(ii) of the Rights
  15. # in Technical Data and Computer Software clause at DFARS 252.227-7013 and/or
  16. # in similar or successor clauses in the FAR, or the DOD or NASA FAR
  17. # Supplement.  Contractor/manufacturer is Silicon Graphics, Inc.,
  18. # 2011 N. Shoreline Blvd. Mountain View, CA 94039-7311.
  19. #
  20. # THE CONTENT OF THIS WORK CONTAINS CONFIDENTIAL AND PROPRIETARY
  21. # INFORMATION OF SILICON GRAPHICS, INC. ANY DUPLICATION, MODIFICATION,
  22. # DISTRIBUTION, OR DISCLOSURE IN ANY FORM, IN WHOLE, OR IN PART, IS STRICTLY
  23. # PROHIBITED WITHOUT THE PRIOR EXPRESS WRITTEN PERMISSION OF SILICON
  24. # GRAPHICS, INC.
  25. #
  26. ##########################################################################
  27. #  (c) Copyright 1993, 1994 Hewlett-Packard Company    
  28. #  (c) Copyright 1993, 1994 International Business Machines Corp.
  29. #  (c) Copyright 1993, 1994 Sun Microsystems, Inc.
  30. #  (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
  31. #      Novell, Inc.
  32. ##########################################################################
  33.  
  34.  
  35. #
  36. # This sample shell script demonstrates the operation of augmented and
  37. # overridden translations.  If the translations are cleared, then both
  38. # overriding and augmenting the translations will cause all of the new
  39. # translations to take effect.
  40. #
  41.  
  42. Enter()
  43. {
  44.    echo "EnterNotify ("$1")"
  45. }
  46.  
  47. BtnDown()
  48. {
  49.    echo "ButtonDown ("$1")"
  50. }
  51.  
  52. Activate()
  53. {
  54.    echo "Activate"
  55. }
  56.  
  57. Augment()
  58. {
  59.    XtAugmentTranslations $PB \
  60.     '<EnterNotify>:ksh_eval("Enter augmented") 
  61.      <Btn1Down>:ksh_eval("BtnDown 1")
  62.      <Btn3Down>:ksh_eval("BtnDown 3")'
  63. }
  64.  
  65. Override()
  66. {
  67.    XtOverrideTranslations $PB \
  68.     '<EnterNotify>:ksh_eval("Enter overridden") 
  69.     <Btn1Down>:ksh_eval("BtnDown 1")'
  70. }
  71.  
  72. Uninstall()
  73. {
  74.    XtUninstallTranslations $PB
  75. }
  76.  
  77.  
  78. ######################### Create the Main UI #################################
  79.  
  80. XtInitialize TOPLEVEL transTest1 TransTest1 "$0" "$@"
  81. XtSetValues $TOPLEVEL allowShellResize:True
  82.  
  83. XmCreateForm FORM $TOPLEVEL form 
  84. XtManageChild $FORM
  85.  
  86. XtCreateManagedWidget PB pb XmPushButton $FORM \
  87.     labelString:"Test Button"
  88. XtAddCallback $PB activateCallback "Activate"
  89.  
  90. XtRealizeWidget $TOPLEVEL
  91.  
  92. XtCreateApplicationShell TOPLEVEL2 listAdd1a TopLevelShell
  93.  
  94. XtCreateManagedWidget RC rc XmRowColumn $TOPLEVEL2 \
  95.          orientation:HORIZONTAL \
  96.          numColumns:2 \
  97.          packing:PACK_COLUMN 
  98.  
  99. XtCreateManagedWidget PB1 pb1 XmPushButton $RC \
  100.     labelString:"Augment Translations"
  101. XtAddCallback $PB1 activateCallback "Augment"
  102.  
  103. XtCreateManagedWidget PB2 pb2 XmPushButton $RC \
  104.     labelString:"Override Translations"
  105. XtAddCallback $PB2 activateCallback "Override"
  106.  
  107. XtCreateManagedWidget PB3 pb3 XmPushButton $RC \
  108.     labelString:"Uninstall Translations"
  109. XtAddCallback $PB3 activateCallback "Uninstall"
  110.  
  111. XtRealizeWidget $TOPLEVEL2
  112.  
  113. XtMainLoop
  114.